2 REM A. EDER 3 POKE808,225 4 DATA169,187,141,24,3,169,192,141,25,3,120,173,14,221,41,254,141,14,221 5 DATA173,15,221,41,254,141,15,221,169,2,141,6,221,169,0,141,7,221,169,255 6 DATA141,4,221,169,255,141,5,221,169,31,141,13,221,169,130,141,13,221,169 7 DATA65,141,14,221,141,15,221,88,169,96,141,149,192,141,156,192,96,169,3 8 DATA141,2,212,169,232,141,3,212,169,9,141,5,212,169,0,141,6,212,169,0,141 9 DATA9,212,141,10,212,234,234,169,36,141,12,212,169,165,141,13,212,169,3 10 DATA141,16,212,169,232,141,17,212,169,101,141,19,212,169,34,141,20,212 11 DATA234,169,65,141,4,212,141,18,212,169,17,141,11,212,234,165,15,141,24 12 DATA212,234,234,76,0,192,173,4,212,41,254,141,4,212,173,11,212,41,254,141 13 DATA11,212,173,18,212,41,254,141,18,212,96,1,1,120,72,138,72,152,72,172 14 DATA13,221,48,4,88,76,86,254,172,186,192,136,208,45,32,160,192,174,185 15 DATA192,202,208,3,174,32,193,189,66,193,141,0,212,141,7,212,141,14,212 16 DATA189,32,193,141,1,212,141,8,212,141,15,212,142,185,192,188,100,193,32 17 DATA136,192,140,186,192,173,252,7,73,1,141,252,7,88,76,188,254,169,71,141 18 DATA24,3,169,254,141,25,3,96,234,234,234,234,234,234,234,234,234,33,26 19 DATA29,29,32,32,34,39,29,29,29,32,32,26,26,26,19,19,39,39,29,32,39,26,32 20 DATA34,34,29,34,32,39,32,39,32,0,20,69,69,219,219,207,18,69,69,69,219,219 21 DATA20,20,20,137,137,18,18,69,219,18,20,219,207,207,69,207,219,18,219,18 22 DATA219,0,2,2,2,2,2,1,1,2,2,2,1,1,2,2,2,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0 23 FORN=0TO390:READEW:POKE49152+N,EW:NEXT 24 IF PEEK(43)=181 THEN:SYS49152:POKE53269,0 25 POKE3508,0:POKE43,181:POKE44,13:CLR 26 Z1=RND(-TI):SYS49227:DEFFNZU(EZ)=INT(RND(1)*(EZ-AZ+1))+AZ 27 DEFFNPR(SA)=1024+SA+ZE*40:DEFFNFA(SA)=55296+SA+ZE*40 28 CT=1:CF=1:CR=0:V=53248:SP=2040:GOTO741 29 ZE=ZE-1:FORN=0TO6STEP3 30 ZE=ZE+1:Z(N+2)=CR:IFCR=0THEN:Z(N+2)=FNZU(10) 31 Z(N+1)=FNZU(EZ):Z(N+3)=Z(N+1)*Z(N+2) 32 IFZ(N+2)>9THEN:POKEFNPR(SA+3),49:POKEFNFA(SA+3),FR%:Z(N+2)=Z(N+2)-10 33 IFZ(N+1)>9THEN:POKEFNPR(SA-1),49:POKEFNFA(SA-1),FR%:Z(N+1)=Z(N+1)-10 34 POKEFNPR(SA),(Z(N+1)+48):POKEFNFA(SA),FR%:POKEFNPR(SA+2),42:POKEFNFA(SA+2),FR% 35 POKEFNPR(SA+4),(Z(N+2)+48):POKEFNFA(SA+4),FR% 36 POKEFNPR(SA+6),61:POKEFNFA(SA+6),FR%:NEXTN:ZE=ZE-2:RETURN 37 POKEV+21,(PEEK(V+21)OR1):GOSUB105 38 POKEV+21,(PEEK(V+21)AND254):RETURN 39 FORN=0TO6:GETL$:NEXT:L$="":FE%=0 40 FORN=3TO9STEP3 41 Z$=STR$(Z(N)):ZI=LEN(Z$):I%=0:LO$="" 42 UH%=UH%+1:L$="":GETL$:IFL$=""ANDUH%=UE%ORFE%>=1THEN49 44 IFASC(L$)<48ORASC(L$)>57THEN42 45 LO$=LO$+L$:I%=I%+1 46 IFUH%Z(N)THEN:FE%=FE%+1:GOSUB153 49 NEXTN 50 ZE=ZE-3:IFFE%<1THEN52 51 GOSUB90 52 IFUH%254THEN:POKEV,255:GOTO93 92 POKEV,(24+8*SA) 93 GOSUB37:RETURN 94 POKEV+39,0 95 POKESP,42:POKEV+1,(50+8*ZE):IF(24+8*SA)>254THEN:POKEV,255:GOTO97 96 POKEV,(24+8*SA) 97 GOSUB37:RETURN 98 POKEV+39,9 99 POKESP,43:POKEV+1,(50+8*ZE):IF(24+8*SA)>254THEN:POKEV,255:GOTO101 100 POKEV,(24+8*SA) 101 POKEV+21,(PEEK(V+21)OR1) 102 FORM=0TO40:POKEV+29,(PEEK(V+29)OR1):POKEV+23,(PEEK(V+23)OR1):NEXTM 103 FORM=0TO30:POKEV+29,(PEEK(V+29)AND254):POKEV+23,(PEEK(V+23)AND254):NEXTM 104 GOSUB38:RETURN 105 SI=54272:FL=SI:FH=SI+1:W=SI+4:A=SI+5:H=SI+6:L=SI+24 106 FORM=1TO20 107 POKEL,15:POKEA,17:POKEH,17:POKEFH,19:POKEFL,137:POKEW,17 108 FORT=1TO50:NEXTT:POKEV+29,(PEEK(V+29)OR1):POKEV+23,(PEEK(V+23)OR1) 109 POKEW,0:POKEA,0:POKEH,0 110 POKEL,15:POKEA,17:POKEH,17:POKEFH,39:POKEFL,18:POKEW,17 111 FORT=1TO20:NEXTT:POKEV+29,(PEEK(V+29)AND254):POKEV+23,(PEEK(V+23)AND254) 112 POKEW,0:POKEA,0:POKEH,0:NEXTM:RETURN 113 POKEV+29,PEEK(V+29)OR128:POKEV+23,PEEK(V+23)OR128:POKEV+21,PEEK(V+21)OR128:RETURN 114 POKEV+29,PEEK(V+29)OR64:POKEV+23,PEEK(V+23)OR64:POKEV+21,PEEK(V+21)OR64:RETURN 115 POKEV+46,10:POKESP+7,50:POKEV+14,X:POKEV+15,Y:GOSUB113:RETURN 116 POKEV+29,PEEK(V+29)OR32:POKEV+23,PEEK(V+23)OR32:POKEV+21,PEEK(V+21)OR32:RETURN 117 POKEV+45,9:POKESP+6,51:POKEV+12,X:POKEV+13,Y:GOSUB114:RETURN 118 POKEV+44,11:POKESP+5,45:POKEV+10,X:POKEV+11,Y:POKEV+21,PEEK(V+21)OR32:RETURN 119 POKEV+45,13:POKESP+6,50:POKEV+12,X:POKEV+13,Y:GOSUB114:RETURN 120 POKEV+46,0:POKESP+7,50:POKEV+14,X:POKEV+15,Y:GOSUB113:RETURN 121 POKEV+46,4:POKESP+7,47:POKEV+14,X:POKEV+15,Y:GOSUB113:RETURN 122 POKEV+46,3:POKESP+7,49:POKEV+14,X:POKEV+15,Y 123 POKEV+21,PEEK(V+21)OR128:RETURN 124 POKEV+44,11:POKEV+45,1:POKESP+5,45:POKESP+6,44:POKEV+10,X:POKEV+11,Y 125 POKEV+12,X+25:POKEV+13,Y-10:POKEV+21,PEEK(V+21)OR96:RETURN 126 POKEV+46,1:POKESP+7,48:POKEV+14,X:POKEV+15,Y:POKEV+21,PEEK(V+21)OR128:RETURN 127 POKEV+46,8:POKESP+7,46:POKEV+14,X:POKEV+15,Y:GOSUB113:RETURN 128 POKEV+46,1:POKESP+7,48:POKEV+14,X:POKEV+15,Y:GOSUB113:RETURN 129 POKEV+44,1:POKESP+5,41:POKEV+10,X:POKEV+11,Y:POKEV+21,PEEK(V+21)OR32:RETURN 130 POKEV+45,10:POKESP+6,49:POKEV+12,X:POKEV+13,Y:POKEV+21,PEEK(V+21)OR64:RETURN 131 POKEV+44,1:POKESP+5,40:POKEV+10,X:POKEV+11,Y:GOSUB116:RETURN 132 POKEV+44,4:POKESP+5,47:POKEV+10,X:POKEV+11,Y:GOSUB116:RETURN 133 POKEV+45,1:POKESP+6,41:POKEV+12,X:POKEV+13,Y:GOSUB114:RETURN 134 POKEV+29,PEEK(V+29)AND31:POKEV+23,PEEK(V+23)AND31:REM SPRITES OHNE EDE AUS 135 POKEV+21,PEEK(V+21)AND31:RETURN 136 S=0:N=0:M=2112:X=120:Y=100 137 FORN=0TO62:READS:POKEM+N,S:NEXTN 138 IFM<3264THEN:M=M+64:GOTO137 139 RETURN 140 POKEV+40,1:POKEV+41,0:POKEV+43,1:POKEV+42,1:POKESP,33:POKESP+4,37 141 POKESP+3,39:POKESP+2,35:POKESP+1,34 142 POKEV+29,(PEEK(V+29)OR30):POKEV+23,(PEEK(V+23)OR30):RETURN 143 GOSUB29:GOSUB39:GOSUB89:GOSUB134 144 RC=0:GETS$:IFUH%>UE%ORFE%>0ANDS$<>"[135]"THEN:RC=1:GOSUB150 145 RETURN 146 CO=15:CS=15 147 POKE53280,CO:POKE53281,CS:PRINT CHR$(142)CHR$(147);:RETURN 148 GETS$:IFS$<"0"ORS$>"9"THEN148 149 RETURN 150 CM=CE(2):CX=2:FORN=3TO9:IFCE(N)>=CMTHEN:CM=CE(N):CX=N 151 NEXT:IFCM>=3ORCL>=5THEN:RC=2 152 RETURN 153 CE(Z(N-1))=CE(Z(N-1))+1:CE(Z(N-2))=CE(Z(N-2))+1:RETURN 154 DATA0,96,56,0,56,224,17,31,224,59,153,48,31,61,184,14,63,248:REM TEUFEL 155 DATA4,51,152,4,24,48,8,15,234,8,7,198,8,3,131,4,15,231,2,31,254,3,63,252 156 DATA1,254,252,0,252,124,0,62,252,0,31,248,0,31,240,0,124,62,0,56,28 157 DATA56,0,0,120,0,0,248,0,96 158 DATA252,0,254,127,7,158,112,255,139,48,255,136,31,255,248,31,128,252 159 DATA63,192,252,63,255,254,62,191,174,61,182,183,125,182,183,59,118,213 160 DATA59,118,213,27,50,214,25,186,166,13,154,172,4,146,40,2,73,80 161 DATA0,0,0,0,0,0,0,0,0,0,0,0,15,0,240,15,0,240 162 DATA15,0,240,0,0,0,0,255,0,0,255,0,0,0,0,0,0,0 163 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 164 DATA0,0,0,56,0,0,92,0,0,219,0,0,182,128,0,237,192,0 165 DATA83,96,0,86,248,0,21,184,0,11,96,0,2,192,0,2,128,0 166 DATA0,128,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,00 167 DATA0,0,0,0,0,28,0,0,58,0,0,219,0,1,109,0,3,183 168 DATA0,6,154,0,31,106,0,29,168,0,6,208,0,3,64,0,1,64 169 DATA0,1,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,00 170 DATA62,0,240,127,135,252,255,255,254 171 DATA255,255,255,255,255,255,251,187,223,243,185,207,119,155,223,119,217,207 172 DATA115,219,239,123,219,239,123,219,239,123,153,207,123,189,158,243,189,206 173 DATA247,185,158,231,187,60,195,11,28,193,137,8,128,0,0,0,0,0 174 DATA0,1,252,0,7,254,0,31,255,0,63,255,0,127,255,0,255,255 175 DATA7,255,239,15,255,206,63,255,158,63,255,158,127,251,156,127,247,190 176 DATA127,247,158,255,183,14,247,119,62,238,215,31,238,211,31,238,195,31 177 DATA108,198,62,204,206,28,204,88,24 178 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 179 DATA0,0,1,8,224,1,140,240,1,206,184,1,254,172,15,255,171 180 DATA255,255,107,255,255,27,255,174,7,255,172,15,255,164,15,255,128 181 DATA5,255,128,4,239,128,6,201,128,0,109,192,0,0,0,0 182 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,128,7 183 DATA49,128,15,115,128,29,127,128,53,255,240,85,255,255,213,255,255 184 DATA214,117,255,216,53,255,192,37,255,224,1,255,224,1,255,64,1 185 DATA246,192,1,146,0,3,182,0,0 186 DATA0,0,0,0,0,0,0 187 DATA2,0,0,36,0,0,79,0,2,88,3,193,112,15,241,240,28 188 DATA24,248,59,220,120,52,44,60,109,150,60,108,86,60,55,150,120 189 DATA 59,44,120,24,92,240,7,185,240,15,255,224,63,255,224,127,255 190 DATA128,192,0,0 191 DATA0,0,0,12,249,128,7,255,0,4,113,0 192 DATA9,36,128,8,32,128,12,113,128,15,255,128,15,175,128,25,220 193 DATA192,126,251,240,247,7,120,231,255,56,231,255,56,231,255,56,179 194 DATA254,104,67,254,16,1,252,0,3,254,0,5,141,0,9,84,128 195 DATA3,192,0,0,128,0,1,198,0,2,239,0,3,223,0,3 196 DATA230,0,3,192,0,6,0,0,0,224,0,1,240,0,3,248,0 197 DATA2,232,0,6,236,0,5,244,0,7,252,0,7,252,0,3,252 198 DATA0,1,250,96,2,101,147,5,10,12,0,0,0,0,0,12 199 DATA0,7,14,0,15,143,0,15,135,0,7,115,3,240,252,31,254 200 DATA252,63,255,252,127,255,180,127,255,120,127,254,120,191,254,48,159 201 DATA252,48,71,244,16,64,42,0,64,0,0,128,0,0,131,3,0 202 DATA100,132,128,24,120,0,0,0,0 203 DATA1,160,0,15,64,0,31 204 DATA128,0,55,192,0, 63,192,0, 63,128,24,61,128,60,27,192,126 205 DATA7,224,126,31,240,126,39,240,126,15,248,124,9,248,124,30,248 206 DATA120,63,248,248,63,240,240,63,241,224,63,227,192,31,207,0,63 207 DATA254,0,80,248,0 208 DATA0,0,0,0,0,0,0,0,0,0,0 209 DATA0,0,0,0,0,0,0,3,252,0,12,3,128,16,0,64,32 210 DATA0,0,64,0,0,64,240,0,135,254,0,159,255,129,191,255,247 211 DATA191,255,222,127,255,248,31,255,128,7,254,0,4,242,0,6,3,0 212 DATA0,0,0,0,0,48,0,0,72,0,0,134,0,0,143 213 DATA0,0,134,0,0,68,0,0,34,0,0,48,0,0,48,0,0 214 DATA24,0,62,12,129,255,206,127,255,254,15,255,255,255,255,255,15 215 DATA255,255,255,255,254,127,255,252,7,192,240,0,0,0 216 DATA7,192,0,31,254,0,63,255,192,63,255,240,31,111,248,31,7,252,207:REM SCHM 217 DATA131,252,39,195,252,87,243,248,63,255,240,11,255,192,15,255,248 218 DATA3,127,252,1,191,254,2,239,254,2,135,255,0,3,255,0,0 219 DATA255,0,0,30,0,0,0,0,0,0 220 DATA1,16,0,1,176,0 221 DATA1,240,0,3,248,0,10,74,0,5,244,0,11,186,0,7,252 222 DATA128,7,252,192,7,252,192,7,252,192,15,254,96,15,254,96,15 223 DATA254,96,15,254,224,15,255,192,15,255,0,7,252,0,3,248,0 224 DATA6,236,0,0,0,0 225 DATA0,224,224,1,241,240,3,255,248,7 226 DATA223,124,7,255,252,7,241,252,3,241,248,1,255,240,0,255,160 227 DATA0,48,112,0,239,248,1,31,252,0,111,254,0,147,254,0,125 228 DATA254,0,254,254,1,254,254,1,253,252,0,255,248,1,127,240,0,159,192 229 GOSUB146 230 PRINT"[149][146]"SPC(36)"[169][146][169]"; 231 PRINT" [223][223][146]"SPC(34)"[169][146][169]" 232 PRINT" [223][223][146]"SPC(13)"[172][162][162][162][162][162][187]"SPC(12)"[169][146][169]" 233 PRINT" [223][223][146]"SPC(13)"[158][223] [146][169]"SPC(12)"[149][169][146][169]" 234 PRINT" [223][223][146]"SPC(28)"[169][146][169]" 235 PRINT" [223][223][146]"SPC(26)"[169][146][169]" 236 PRINTSPC(6)"[223][223][146]"SPC(24)"[169][146][169]":PRINT 237 PRINTSPC(15)"[172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]" 238 PRINTSPC(9)" [146] [161][154] [149][146][161]" 239 PRINT" [129][213][195][195][201] [149] [146] [194]  [146] [161][154] [146][169][223] [149][146][161]" 240 PRINT" [129][194] [129][146][194] [149] [146][195][219][195] [146] [161][154] [206][205][206] [205] [206][205][206][149][146][161] [129][162][162][162][162][162][162]" 241 PRINT" [194] [129][146][194] [149] [146] [194]  [146] [161][154] [206][205][206] [205] [205][206] [206] [149][146][161] [129] [146]  " 242 PRINT" [194] [129][146][194] [149] [209][146] [161][154][206] [205] [205] [149][146][161] [129] [146]  " 243 PRINT" [194] [146][169][129][203] [149] [146] [161] [149][146][161] [129] [146]  " 244 PRINT" [194][169] [129][169] [146] [149] [146] [161] [149][146][161] [129] [144][146][194] [129] " 245 PRINT" [202] [169] [146] [149] [188][146][162][190] [146] [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146] [129] [144][146][194] [194][129] " 246 PRINT" [169] [170] [146] [149] [146]"SPC(19)"[129] [146] [144][194][129] " 247 PRINT" [169] [170][209] [146]"SPC(25)" [144][146][194] [129] " 248 PRINT"  [170] [146][169]"SPC(25)" [144][146][194] [129] " 249 PRINT"  [170][146][169] [150][169] [164][164][164][164][164][164][164][164][164][164][164][164][164] [223][146] [129][223][223][146] [144][194][129] " 250 PRINT"  [146][169] [150][169] [206] [205] [223][146] [129][223][223][144][146][194][129] " 251 PRINT"  [146][169] [150][169] [206] [205] [223][146] [129][223][223] " 252 PRINTSPC(6)"[150][169] [206] [205] [223][146] [129][223] " 253 PRINT" [150][169] [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183] [223][145][145]" 254 X=80:Y=190:GOSUB124:Y=215:FORX=225TO210STEP-1:Y=Y-1:GOSUB71:NEXTX 255 FORY=190TO154STEP-1:GOSUB71:NEXTY:GOSUB83:RETURN 256 GOSUB146 257 PRINTSPC(12)"[169][146]"SPC(8)"[169][146]"SPC(6)"[169][169] 258 [153]" NEWFREUSRUSRFREWAITNEW PRINT#nUSRFREPRINT#mnm nPOSRNDWAIT PRINT#nUSRPRINT#n m n"; 259 [153]" COS WAITNEWPRINT#n"[166]6)"mnmn mnmn"[166]6)"m n 260 PRINT"[167] [188][146] [152]n m [190] [188][146] [152]m"SPC(9)"mn 261 [153]"ABS WAITINTPRINT#(null) INT  WAITRND PRINT#(null) PRINT#(null) 262 PRINT"[161] [146][161] [181]  [146][161] " 263 PRINT"[181] [182][190] [188][146]  [187] [172][146] " 264 PRINT"[161] [146][161] [146][180] [158]  [158]  [146] [149] [169][146]q [175][185][162][185][175] [190] [188] 265 [153]"ABS WAITINTRNDVERIFY *WAIT  WAIT VERIFY WAITSTEP COS LOGWAIT + WAITSGN"; 266 [153]"THEN WAIT VERIFY WAIT COS LOGWAIT VERIFY WAIT GET WAITINT RND * 267 PRINT" [187] [172][149] [172][149][169] [146][181] [149] [146] [170] [146][180] [149] [146] [180] [182][146] [149][180] 268 [153]" USR VERIFY STEPWAITSTEPLOGCOS"[166]6)"RND *WAIT"[166]7)"INT WAITGET VERIFYSGN 269 PRINT"[154] [183][146][162][175][149] [146][169]"SPC(19)"[170] [146][180] [153][166][166][166] 270 [153]"CONT VERIFY CONTFREWAITNEWANDPOSNEWFREUSRTAB( LOGWAIT"[166]8)" WAIT PRINTSPC(SPC( 271 PRINT"[154] [149] [154] [188][146] [153][166][166][166][146] [165] [170] 272 [153]"CONT VERIFY CONT WAITGET PRINTSPC(SPC(SPC(WAIT INT ABS 273 PRINT"[154][183][184][162][185][149] [154] [164][175] [153][166][166][166][166][146] [161] [146][181] 274 [153]" VERIFY WAIT CONTUSR FREAND WAITGET + 275 PRINT" [149] [146]"SPC(9)"[154][187] [146]"SPC(6)" [170] 276 [153]" VERIFY WAIT"[166]10)"CONT WAITINT SGN ABS 277 PRINT" [149] [146]"SPC(9)"[154][170] [146][161] [181] [146][161] 278 [153]" PRINTSPC(SPC(SPC(VERIFYRND PRINTWAITSPC(SPC("[166]7)"CONTABS ABSWAIT PRINTSPC(SPC(SPC(WAIT GET WAITFN 279 PRINT" [153][166][166][166][166][166][166][166]"SPC(6)"[154][161] [170][146] [153][166][166][166][146]  [149]  280 [153][166]15)"CONTSGN WAIT"[166]6)"RNDVERIFY * 281 X=90:Y=200:GOSUB132:Y=150:FORX=75TO150STEP.5:Y=Y+.1:GOSUB126:NEXTX:RETURN 282 GOSUB146 283 PRINT" "SPC(9)"[158][205][190] [188][146][206] 284 [153]" "[166]7)"SYSLENLENABS WAITSGNLENLENLENLEN 285 PRINT" "SPC(9)"[158][206][187] [172][146][205][175][162][183] [183][184][146][175] [185] 286 [153]" TOANDPOSNEWUSRTAB( USRWAITNEWPOSPOSANDANDSYSFREFRE COS LOGWAIT COS LOG 287 PRINT" [190] [188][190] [146][161] [182] [146][181]"; 288 PRINT"[161]";:FOR Z=1 TO 33:PRINT" ";:NEXT 289 PRINT"[146] [187] [172] 290 [153]"INT";:[129] Z[178]1 [164] 33:[153]" ";:[130] 291 [153]"WAITINT VERIFYSGN 292 PRINT"[180]";:FOR Z=1 TO 33:PRINT" ";:NEXT 293 PRINT"[182][146] [149][181][146][165] 294 [153]"SGN";:[129] Z[178]1 [164] 20:[153]" ";:[130] 295 [153]"b ABSWAIT PRINTSPC(VERIFYGETWAITINT 296 PRINT"[181] [172][146][170] [146][180] [153][166][166] 297 [153]"+ ANDWAITFRE RND *WAITANDPOSAND 298 PRINT" [187] c[146] [158]h [184][185] [185][162][190] [188] 299 [153]" RND ABSWAIT SYSh PRINTNOT GETVERIFY ABSWAIT ABS WAITINT 300 PRINT" [162] [146] [153][168][168] [154][175][184] [149][181] [172][146] [180] [170] 301 [153]" NEW ABSWAIT CONTANDUSR ANDWAITFRE VERIFYABS WAITSGN SGN + 302 PRINTSPC(6)"[187] [149]  [149]  [146][180] [154][190] [172][146] u[184][146]i[149][170] [146][165][153]|[168][182] [146][181] 303 [153]" PRINTNOTNOTNOTSPC(WAIT RND*VERIFY NEWVERIFYSTEPWAITSTEPRND*WAIT CONT+ WAIT SYSj WAITkVERIFY+ WAITINTuFREWAITiRND * 304 PRINT" [153][166][166][146] [149][167] [169][146][169] [154][182] [146][165] [149][175][190] [146][161][158]j.[146]k  305 [153]" uFREWAITi VERIFY+ *WAIT PRINTNOTNOTSPC( CONTSGN WAIT VERIFYUSRFREAND *WAITUSRSYSFRE SGN + 306 PRINT" [158]j [146]ku[184][146]i[149][182] s [146][181] [154] [170][146] [153][166][168] [149][183][172][153][146][166][168]| [149][190][146][191][188] 307 [153]" SYSTAB( j.WAITkVERIFYGET ABSWAIT uFREWAITiCONT+ WAITPOS uFREWAITi uFREWAITi VERIFYLOG 308 PRINT"u[184][146]i [158][184][149][185] [146] [158]j [146]k [154][187] [188][146] [158]j [146]k j.[146]k 309 [153]"j.WAITk VERIFYANDCOS LOGWAIT CONT FREWAITAND PRINTNOT SYSNEW 310 PRINT" [183] [149][162][185][175] [146][190][187] [175][162][146] [154][188] [146][185][175] [153][166][166][166][168] 311 [153]" (null)NOTNOTNOT VERIFYRND*WAIT PRINTNOTNOT(null) CONTGET LOGON" 312 X[178]25:Y[178]230:[141]124:X[178]250:Y[178]190:[141]127:[142] 313 [141]146 314 [153]"SYSm POSFREWAITPOS n"[166]16)"TOANDPOSNEWNEWFREFREFREWAITNEWNEWPOSAND GET "; 315 [153]"WAIT SYSCOS(null) (null)LOGWAIT COS LOGWAIT PRINT# "; 316 [153]"SYSWAITTHEN WAITFNLENLEN + WAITINTPRINT#GETSYSPEEKPRINT#WAITABS"; 317 [153]" SYSRNDMID$LEN(null)*WAIT ABS WAITGETPRINT# "; 318 [153]"SYSWAITn FRENEWWAITFRE m"[166]14)"+ ABSCOS LOG"; 319 [153]"WAIT SYSb m *NEWNEWNEWNEWNEW  WAITSGN "; 320 [153]"WAIT SYSb m GET PRINT# SGN WAIT RNDVERIFY *"; 321 [153]"WAITANDANDFREFREFRE WAITINT POKE PRINT# SYS{{PRINT# INT WAITGET VERIFY 322 PRINT" [152]  [151] [146]b [146]b [190] [188][146] [188] [172][146] [149][184][154][164]"; 323 PRINT"[151] [152] [158]{{[152] [158]{[152] [150] [151][146]{[150] [151][146]{[150] [151][162][162][162][162][162] [146][180] [180] [149] [146][188][185][146][184][154][185][184][183][163] "; 324 PRINT"[151] [158]{[152] [150] [146][175] [153][166][166] [187][149] [172][146] [153][166][187] [172][149][146] [154][183] [175][162][146][184]"; 325 PRINT"[151] [152] [158]{{[152] [146] [150][184][184][184][190] [188][153][146][166] [149] [146] [153][166]| [183][154][175][162] [149] [154] [164][146][184] 326 [153]" PRINT# WAIT PRINTSPC(SPC(ABS WAITINT VERIFY WAIT CONTPOS VERIFY CONT POSWAITFREUSRANDNEWAND 327 PRINT" [175][185][162][162][185][175][153][166][166] [161] [146][161] [154][185] [149] [146] [190] [188] 328 [153]"COS LOGWAIT RND*VERIFY RND WAITINT CONTPOS VERIFY WAIT THEN WAITFN 329 PRINT" [146][165] [149] [169][172][146] [154][185] [172][146][183][149] [146] [187] [172] 330 [153]" WAITSGN VERIFY WAITSTEP CONTCOS *WAITTAB( VERIFY WAIT FREVERIFYNEWWAITFRE 331 PRINT"[187] [172][146] [153][166][166][149] [153][146][166][154][190] [172][146][163] [149] [146] [153][166][166][166] 332 [153]" RND*VERIFYSGN+RND*WAIT PRINTSPC(SPC(SPC(SPC(VERIFY CONTINT *WAIT"[166]6)"VERIFY WAIT PRINTSPC(SPC(SPC(SPC( 333 PRINT" [166][166][149][180][170][146] [153][166][166][166][166][166] [154] [146] [153][166][166] [149] 334 [153]"PRINTSPC(SPC( VERIFYSGN+WAIT"[166]8)"CONTGET +WAIT PRINTSPC(SPC(| SPC(VERIFY 335 PRINT" [180][170][146] [153][166][166][166] [154][181] [182][146] [153][166][166][166][166][166][166] 336 [153]" VERIFYSGN+PRINTSPC(SPC(WAIT SPC(SPC( CONTSGN +WAIT PRINTSPC(SPC(SPC(SPC(SPC( 337 PRINT" [166][149][180][172][153][166][146]"SPC(7)"[154] 338 Y[178]210:[129]X[178]250[164]220[169][171].5:Y[178]Y[171].5:[141]127:[130]X:[142] 339 [141]146 340 [153] 341 [129]Z[178]1[164]2:[153]" DEF WAIT"[166]22)" ":[130] 342 [153]"DEF (null)WAIT  WAIT RND"[166]11)" " 343 [153]"DEF   WAIT"[166]16)"ANDANDAND 344 PRINT"[150]   [146]"SPC(15)"[190] [188] 345 [153]"CLR   SYS{ SYS{ WAIT"[166]6)"COS LOGWAIT COS LOG 346 PRINT"[156]  [158] b   [146]"SPC(6)" [146] [170] [146][180] 347 [153]"CLR POKEWAITANDlCLR POKEWAITANDlCLR  SYS b   SYS{ POKEWAIT{ WAIT ABS WAITINT + WAITSGN 348 PRINT"[156] [146] [151][180][156] [146] [151][180][156]   [146][169]"SPC(6)" [146] [187] [172][149] [187] [172] 349 [153]"CLR  WAIT b   POKEWAIT{ WAITSTEP STEPnWAITINT ABSmPOSVERIFY POSWAIT  WAITNEWVERIFY WAIT FRE 350 PRINT"[156]  [146] b   [146][169] [169]n[146][169] m[149] [146] [190] [188] 351 [153]"CLR SYSANDlCLR POKEWAITANDlCLR   WAITSTEP  WAIT  VERIFY WAIT COS LOG 352 PRINT"[156] [158] [180][156] [146] [151][180][156]  [152]  [146][169] [151]no[183][183]p[183][183][183][183]p[183][183][149] [151][146]pm[182] [146][181] 353 [153]"CLR  PRINT#q WAITSTEP POKEn SGN + CONTSTEP POKEWAIT+ + INT WAITGET 354 PRINT"[156]  [152] [146][169] [151]n [149] [146] [182] [146][181] 355 [153]"CLR POKEWAITANDlCLR SYSANDlCLR  PRINT#WAITSTEP POKEb VERIFY WAIT CONTSTEP WAIT VERIFY WAIT  356 PRINT"[156] [146] [151][180][156] [158] [180][156] [146][169] [151]b[149] [146] [154][169] [146] [149] [146][182] [146][190][149] [146][188] [146][181] 357 [153]"CLR WAIT"[166]8)"CONTSTEP WAIT"[166]6)"VERIFY STEP 358 PRINT"[156] [129] [156] [146][169] [169]nn[146][161] [154][169] [146] [181]mm[149] [146][169] 359 [153]"CLR FOR CLR WAITSTEP STEPnn WAITGETCONTSTEP WAIT mmVERIFY 360 PRINT"[156] [129]q [156][146][169] [169]nn[146][169] [154][169] [146] mm[149] 361 [153]"CLR FOR WAITSTEP  WAIT CONTSTEP WAIT  362 PRINT"[156] [129] [146][169]  [154][169]  363 X[178]170:Y[178]200:[141]128:X[178]233:Y[178]89:[141]130 364 Y[178]151:[129]X[178]230[164]135[169][171]1:[141]129:[130]X:[142] 365 [141]146 366 [153]:[153]:[153] 367 [153]" STOP";:[129] Z[178]1 [164] 39:[153]"TO";:[130] 368 [153]" (null)(null) (null)(null) 369 PRINT" [206] [205][206] [205] 370 [153]" (null) (null)(null) (null) 371 PRINT" [205] [205][206] [206] 372 [153]" (null) (null)(null) (null) 373 PRINT" [205][206] [205][206] 374 [153]" SYSSTEP";:[129] Z[178]1 [164] 29:[153]" ";:[130] 375 [153]" 376 PRINT"  [146][169]  [146][169]  [146][169]  [146][169]  [146][169]  [146][169]  377 [129]Z[178]1[164]4:[153]"  WAIT  WAIT  WAIT  WAIT  WAIT  WAIT  ":[130] 378 [153]"  WAIT STEP WAIT STEP WAIT STEP WAIT STEP WAIT STEP WAIT STEP 379 PRINT"[144][170] [158]";:FOR Z=1 TO 31:PRINT" ";:NEXT 380 PRINT"[146] [144][180] 381 [153]"+ SYS";:[129] Z[178]1 [164] 31:[153]" ";:[130] 382 [153]"STOP WAITSGN 383 PRINT"[170] [158]";:FOR Z=1 TO 31:PRINT" ";:NEXT 384 PRINT"[146] [144][180] 385 [153]" SYS STOPWAITuciuciSYS STOPWAITuciuciSYS 386 PRINTSPC(7)"[144]bwbbwb"SPC(9)"bwbbwb 387 [153]"POSPOSPOSPOSPOSPOSPOSjckjckPOSPOSPOSPOSPOSPOSPOSPOSPOSjckjckPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS"; 388 Y[178]170:X[178]50:[141]118:[151]53275,[194](53275)[176]192 389 Y[178]155:X[178]125:[141]119:X[178]165:[141]115:X[178]225:Y[178]210:[141]71:[142] 390 CO[178]0:CS[178]11:[141]147 391 [153]"STOP POSWAITFREUSRTAB("[166]16)"TAB(USRFRENEW "; 392 [153]" WAITCOS EDE IST IN DER UBAHN STOPLOG "; 393 [153]" WAITCOS EINER SCHNELLEN STADT. STOPLOG "; 394 [153]" WAITCOS"[166]28)"LOG "; 395 [153]" WAITCOS"[166]30)"LOGCLOSECLOSECLOSECLOSE"; 396 [153]" WAITGET"[166]6)" "[166]19)"STOPGET "; 397 [153]" WAIT * "[166]9)"STOP*"[166]10)" "; 398 [153]" WAITGET (null) "[166]10)"STOP(null)"[166]9)"GET "; 399 [153]" WAIT"[166]6)"m"[166]19)"m"[166]9)" "; 400 [153]" WAITGET"[166]7)"m"[166]19)"m"[166]8)"GET "; 401 [153]" WAIT"[166]9)"m"[166]19)"m"[166]8)" "; 402 [153]"WAITGET FORSTEP WAIT"[166]6)"CONTSTEP WAIT STOPGET"; 403 [153]"WAIT FOR WAIT"[166]6)"CONT 404 PRINT" [129] [146][169]  [146][169]  [146]"SPC(6)"[154] [146][169]  [146][169]  405 [129]Z[178]1[164]4:[153]" FOR WAIT FOR WAIT FOR WAIT"[166]6)"CONT WAIT  WAIT  ":[130] 406 [153]" FOR (null)WAIT STEP (null)WAIT STEP WAIT"[166]6)"CONT (null)WAIT CONTSTEP (null)WAIT CONTSTEP " 407 [153]" FOR WAIT"[166]6)"CONT 408 PRINT" [129] [146]q[129] [146]q[129] [146]"SPC(6)"[154] [146]q[154] [146]q[154] 409 [153]" FOR WAIT"[166]6)"CONT 410 FORZ=1TO2:PRINTSPC(6)"[144] [146]"SPC(7)" [146]"SPC(10)" [146]"SPC(7)" ":NEXT 411 Y=162:X=60:GOSUB119:X=110:GOSUB115:X=250:Y=214:GOSUB60:RETURN 412 GOSUB146 413 PRINTSPC(16)"[158]m [175][162][175] n"SPC(8)"[175][185][175] 414 [153]" "[166]8)"SYSCOS LOGWAIT"[166]8)"COS LOG 415 PRINT" [158][195][195][170] [146][180][195][195][195] [170] [146][180] 416 [153]" "[166]8)"SYSRND *WAIT"[166]8)"RND * 417 PRINTSPC(16)"[158]n [184][185][146][184] [162][184][184][184][146][162] [184][149] [146][184] 418 [153][166]8)"ANDNEWFREUSRFREWAITNEWANDSYSn b  WAIT VERIFY 419 PRINTSPC(7)"[190] [188][146] [158]b[182] [146][181] 420 [153][166]6)"+ WAITSGN SYSb RND VERIFY  POSWAITUSR 421 PRINTSPC(6)"[182] [146][181] [158]b [183][149] [146][180] [144]nmnm 422 [153][166]6)"+ WAITSGN"[166]7)"VERIFY WAITSGN STOPn nm m 423 PRINTSPC(7)"[187] [172][149][161] [169] [172][146][183]"SPC(11)"[144]m mn n 424 [153][166]8)"FRE VERIFYGET WAITSTEPFRE"[166]14)"STOPmnmn 425 PRINT" [129][169] [146] [169] [154][146][164][175][185][185]"; 426 PRINT" [129] [146]  [146]  [149][161] [146] [129] [146]  [146]  [146]  [154][146][175][185][162][129] [154][183][163][160][129] [154] [129] [154] "; 427 PRINT" [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] "; 428 PRINT" [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [164][129] [154][185][162][146][184][183]"; 429 PRINT" [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [129] [154] [129] [154][175][185][162][129] [154][146][183][163] [129] 430 [153]"CONT FOR CONT FOR 431 PRINT"[144][171][129] [144][146]{[129] [144][146][179] 432 [153]" FOR WAITSTEP  WAITSTEP 433 PRINT"[144][164][164][164]bwb[164][164][164][164][164][164][164]bwb[164][164][164][164][164]bwb[164][164][164][164][164][164][164]bwb[164][164][164][164][164][164]"; 434 PRINT" njckn n jck n jck n njckn n 435 [129] Z[178]1 [164] 40:[153]"TAB(";:[130] 436 [129]XH[178]250[164]0[169][171]2:Y[178]65[170].1[172]XH:X[178]XH:[141]130:Y[178]206:X[178]250[171]XH:[141]131:[130]:[142] 437 CO[178]8:CS[178]8:[141]147 438 [153] 439 [153]"STOPm CONT WAIT STOPm IM HOTEL n CONTSTEP WAITSTEP"[166]6)"STOPn"; 440 [153]" m CONT WAIT STOPm ZIMMER n CONTSTEP WAITSTEP"[166]6)"STOPn 441 PRINT" m [154] [146] [144]m[175][175][175][175][175][175][175][175]n [154][169] [146][169]"SPC(6)"[144]n 442 [153]" m"[166]32)"n 443 PRINT" m"SPC(14)"q"SPC(15)"[144]n 444 [153]" m"[166]13)"b"[166]14)"STOPn 445 PRINTSPC(6)"m[175][175][175][175][175][175][175][175][175][175][175][175]b[144][175][175][175][175][175][175][175][175][175][175][175][175][175]n 446 [153][166]6)"+"[166]11)"PRINT#qbPRINT#q"[166]12)"STOPSGN 447 PRINTSPC(6)"[170]"SPC(9)"jcc[177]cck"SPC(10)"[144][180] 448 [153][166]6)"+"[166]26)"SGN 449 PRINT" [193] [144][170]"SPC(7)" "SPC(12)"[144][180] [193] 450 [129]Z[178]1[164]2:[153]"  WAIT STOP+"[166]7)" "[166]12)"STOPSGN  ":[130] 451 [153]" VERIFY WAIT STOP+"[166]26)"SGN VERIFY 452 PRINTSPC(6)"[144][170]"SPC(6)"[149][172][162][162][162][162][162][162][162][162][162][162][162][187]"SPC(7)"[144][180] 453 [153][166]6)"+ VERIFYNEWNEWNEWNEW GET  VERIFY  VERIFY WAITGET NEWNEWNEWNEW STOPSGN 454 PRINTSPC(6)"[170] [149]po [152][169]  [152]  [152] [146] [149]po [144][180] 455 [153][166]6)"nUSRUSRVERIFYSQRlSTOPUSRPRINT#STEP STOPWAITUSRVERIFYSQRlSTOPUSRUSRUSRm 456 PRINT" n [156][169] [149] [156] [146] [144]m 457 [153]" n CLRSTEP VERIFY CLR WAIT STOPm 458 PRINT" n [156][169] [146][169] [149]q"SPC(11)"q [156] [146] [144]m 459 [153]" n CLRSTEP";:[129] Z[178]1 [164] 30:[153]" ";:[130] 460 [153]"WAIT STOPm 461 PRINT" n"SPC(36)"m 462 [153]"n 463 X=60:Y=190:GOSUB124:X=205:Y=150:GOSUB115:RETURN 464 GOSUB146 465 PRINT"  466 [153]" WAIT"[166]9)"STEP  467 PRINT"[149] [146] [146]"SPC(7)"[169]  468 [153]"VERIFY WAIT"[166]9)"STEP SGNui+ 469 PRINT"[149] [146] [156] [146] [180][202][203][170] 470 [153]"VERIFY WAIT CLR WAIT SGN(null)(null)+ 471 PRINT"[149] [144][146][186][175][149] [144][146][186][175][149] [146] [156] [146]  [149] [156] [146] [180][206][205][170] 472 [153]"VERIFY STOPWAIT+ VERIFY STOPWAIT+ VERIFY WAIT"[166]11)"CLR WAIT  VERIFY CLR WAIT SGN + 473 PRINT"[149] [146]"SPC(11)"[156] [146]  [149] [156] [146] [144][180] 474 [153]"VERIFY WAIT"[166]11)"CLR VERIFY CLR WAIT STOPSGN 475 PRINT"[149] [146]"SPC(18)"[144]n m [180] 476 [129] Z[178]1 [164] 34:[153]"TAB(";:[130] 477 [153]"SGNTAB(TAB(TAB(TAB(TAB("[166]10)"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"[166]14)"STOPSGN 478 PRINTSPC(9)"[169][146][169]  [146]  479 [153][166]8)"STEPWAITSTEP  WAIT  480 PRINT"[144]cccccq";:FOR Z=1 TO 21:PRINT" ";:NEXT 481 PRINT"[158][146]q[144]cccccccccccc"; 482 PRINT"  [144][146]uci [144][146]uci 483 [153][166]8)"STEP WAIT STOPbwb"[166]11)"POKESTEP WAITSTEP"; 484 [153][166]7)"STEPWAITSTEP STOPjc WAIT WAIT STOPjck 485 PRINTSPC(6)"[169][146][169]  [146] [146]"SPC(13)"[151][169] [146][169] 486 [153]" q";:[129] Z[178]1 [164] 22:[153]" ";:[130] 487 [153]"SYSWAITq 488 PRINT" [144]h [144][146]uci [144][146]uci [144][146]t [151][169] [146][169] 489 [153]"  STOPWAITbqb STOPWAITbqb 490 PRINT" [144]jck"SPC(14)"jck [151][169] [146][169] 491 [151]53275,[194](53275)[176]96 492 Y[178]128:[129]XH[178]0[164]100[169]2:X[178]XH:[141]131:X[178]250[171]XH:[141]133:[130]XH:[142] 493 [141]146 494 [153]"WAIT"[166]36)"DEF STEP"; 495 [153]" (null)WAIT"[166]13)" "[166]15)"DEF "; 496 [153]" WAIT"[166]13)" "[166]15)"DEF "; 497 [153]" WAIT"[166]13)" "[166]12)" WAIT DEFSTEP "; 498 [153]" WAIT"[166]31)"CLOSEDEFSTEP STOPWAITSQRANDDEF "; 499 [153]" WAIT  WAIT"[166]27)"STEP DEF STOPWAITTHEN DEF "; 500 [153]"  DEFSTEP WAIT"[166]23)"STEP DEF "; 501 [153]"  DEF WAIT"[166]20)"STEPSTEP SYS "; 502 [153]"  DEF FORABSWAIT"[166]17)"DEFSTEP  SYS STOPWAITSQRANDSYS "; 503 [153]"  DEF FOR WAIT"[166]14)"STEPCONT CLR SYS STOPWAITTHEN SYS "; 504 [153]"STOPWAITFN  DEF PRINT# WAIT"[166]11)"NOT PRINT# CONT STOPWAIT{CONT CLR STOPWAITSQRANDCLR SYS "; 505 [153]"STOPWAITo  CONT PRINT# WAIT ANDANDAND SPC(SPC(SPC(WAIT PRINT# CONT CLR STOPWAITTHEN CLR SYS STOPWAITSQRANDSYS "; 506 [153]"  CONT STOPWAIT{CONT PRINT# WAIT STEPWAITSTEP WAIT STOPLOG COS PRINT#CONT STOPWAIT{CONT CLR SYS STOPWAITTHEN SYS "; 507 [153]"  STOPWAITANDl CONT PRINT# WAITSTEPSTEPWAITSTEP WAIT GET"[166]7)"CONT CLR STOPWAITSQRANDCLR SYS "; 508 [153]"  WAIT STOPFN CONT STOPWAIT{CONT PRINT#WAITSTEP  WAITq WAITq WAIT POSPOSPOSPOS CONT CLR STOPWAITTHEN CLR SYS STOPWAITSQRANDSYS "; 509 [153]"  CONT WAITSTEP STOPPOSWAIT NEWWAIT GET STEPWAITSTEP WAIT CONTCLR SYS STOPWAITTHEN SYS "; 510 [153]"STOPWAITFN  STOPWAITANDl CONT WAITSTEP"[166]11)"GET STEP WAIT CLR SYS "; 511 [153]"STOPWAITo  WAIT STOPFN CONTWAITSTEP STEP WAIT"[166]7)" WAIT CLR SYS FOR SYS "; 512 [153]"  WAITSTEP STEPWAITSTEP WAIT THENWAIT STOP+WAIT SGNWAIT CLR SYS FOR SYS "; 513 [153]"  WAITSTEP STEPWAITSTEPSTOPTOTO TOTO WAIT THENWAIT PRINTSTEP WAIT CLRSYS FOR SYS "; 514 [153]"  WAITSTEP  WAITq WAITq WAIT THENWAIT PRINTSTEPWAITSTEP WAIT SYSFOR SYS "; 515 [153]"  WAITSTEP  WAIT PRINTSTEPWAITSTEP"[166]6)"WAIT FOR SYS "; 516 [153]" WAITSTEP STOP WAIT"[166]8)" WAIT  WAIT PRINT DEFWAITqPRINT DEFWAITqPRINT WAIT FORSYS "; 517 [153]" WAITSTEP"[166]18)" WAIT PRINT WAIT SYS "; 518 [153]"WAITSTEP"[166]19)" WAIT STOP WAIT"[166]8)" ONON" 519 Y[178]205:X[178]20:[141]115:X[178]65:[129]Y[178]200[164]150[169][171]1:X[178]X[170].5:[141]118:[130]Y 520 [151]53275,[194](53275)[176]32:[142] 521 [141]146 522 [153]"(null)WAIT"[166]11)" 523 PRINT" [223][146]"SPC(10)" "SPC(19)"[169][223]"; 524 PRINT" [223][146]"SPC(9)" "SPC(17)" [169] "; 525 PRINT" [146] [150][169][146]"SPC(28)" "; 526 PRINT" [150][169]  [146]"SPC(25)"[169] "; 527 PRINT"[151] [150] [146]"SPC(24)"[169] "; 528 PRINT"[151] [159] b [151] [150] [146]"SPC(20)" [169][146][169] "; 529 PRINT"[151] [159] b [151] [150] [169][146]"SPC(17)"  [154] b  "; 530 PRINT"[151] [159] b[160][151] [156] [150] [146] [161][146] [150][161][146]"SPC(6)"[169]  [154] b  "; 531 PRINT"[151] [156][165][158] [156] [158] [156]  [169][160][160][160][160][150][169] [169][169]  [154] b  "; 532 PRINT"[151] [156][165][158] [156] [158] [156] [158] [146][161][161][146] [172][187][172][187][146] [188][190][188][190][150][169] [129]  "; 533 PRINT"[151] [159] b [151] [156]  [146] [172][187][172][187][146] [188][190][188][190][156] [129] [146]  [158]  "; 534 PRINT"[151] [159] b [151] [156][165][146]  [146]  [158] [146][161][161][146]  [146]"SPC(6)"[156][161][161][158] [129] [146]  [158]  [154] b  "; 535 PRINT"[151] [159] b [151] [156][165][146]  [146]   [146]"SPC(11)"[156] [129]  [154] b  "; 536 PRINT"[151] [156] [146]"SPC(14)"[161][161][158] [129] [158] [129] [146]  [154] b  "; 537 PRINT"[151] [156][165][129] [156] [158] [156] [146]"SPC(14)" [129] [158] [129] [146]  "; 538 PRINT"[151] [159] b [151] [156][165][129] q[156] [158] [156] [146]"SPC(17)"[129]  "; 539 PRINT"[151] [159][160]b [151] [156] [129] [156] [146]"SPC(17)"[129]  [154] b  "; 540 PRINT"[151] [159] b [151] [146]"SPC(30)" [154] b  "; 541 PRINT"[151] [146]"SPC(30)" [154] b  "; 542 FORZ=1TO3:PRINT"[129] [151] [146]"SPC(30)" ";:NEXT 543 PRINT"[129] [151] [160]" 544 PRINT"[129] [151] [145][145]" 545 X=80:Y=200:GOSUB117:X=180:FORY=190TO210:X=X-1:GOSUB60:NEXTY:RETURN 546 GOSUB146 547 PRINT:PRINT 548 PRINTSPC(32)"[144][162][162][162][162][162][162] 549 [153][166]10)" "[166]15)"SYS(null) WAITSTEPSTOPGET 550 PRINTSPC(10)" "SPC(14)"[158][206] [144][161] 551 [153]" ORLENLENLEN^WAIT "[166]7)"CONT(null)LENLENRIGHT$ SYS(null) PEEK (null)STOPGET 552 PRINT" b[176]cib[146]"SPC(16)"[154]b b [158]n [144][161] 553 [153]" bb bbWAIT"[166]15)"CONTSTEP WAITFREFRE WAIT"[166]8)"STOPGET 554 PRINT" b[171]ckb[146]"SPC(15)"[154] [146][162][162] [146][169]"SPC(8)"[144][161] 555 [153]" bb CLOSEbWAIT"[166]7)"STEP WAIT STOPlWAIT SQRWAIT"[166]9)"GET 556 PRINT" [173]ccc[189][146]"SPC(7)" [146]  [146]"SPC(16)"[144][161] 557 [153]" PKWWAIT"[166]7)"STEP WAIT FORPOSPOSPOSPOSPOSPOS"[166]7)"STOPGET 558 PRINT" [161]"SPC(8)" [158][146]q [146]  [158][146]q [146] [129][161][146]n m[182][146]"SPC(6)"[144][161] 559 [153]" GET"[166]8)" WAITSTEP FORGETWAIT STOPTOTO TOTOFORABSWAIT"[166]6)"STOPGET 560 PRINT" [161] [169] [144][186][146] l[146] [129][169] [146] [144][161] 561 [153]" STEP WAIT  WAIT"[166]6)"FOR SYSWAITqFOR WAIT  SYSWAITqFOR WAIT STOPGET 562 PRINT"  [146] [144][161]   [144][146][164] [164][164] [146]"SPC(6)"[129] [156][169]  563 [153]"  WAIT STOPTOSTEP   WAIT STOPlCLRSTEPWAITSTEP STOPSQRWAIT CLR 564 PRINT" [169] [146]  [158][146]qq [146] [156] [146] [144][164][164][164] [164][164][164] [156] 565 [153]"STEP WAIT  WAIT CLRSTEP  566 PRINT" [158][146]qq [146][169]  [158][146]qq  [146][169] [156][169]  567 [153]" WAIT STEP WAIT STOP WAIT CLR SYSWAITqqCLR WAIT STOPz CLR SYSWAITqqCLR 568 PRINT"   [146][169]"SPC(7)"[156] 569 [153]" STOP WAIT"[166]6)" WAIT"[166]10)"CLR  CLR WAITSTEP 570 PRINTSPC(25)"[144] [146]"SPC(7)" 571 X[178]40:Y[178]208:[141]77:Y[178]50:[129]X[178]250[164]119[169][171]1:Y[178]Y[170].3:[141]130:[130]X 572 [129]X[178]120[164]60[169][171]1:Y[178]Y[171].4:[141]130:[130]X:[142] 573 CO[178]4:CS[178]8:[141]147 574 [153]" ";:[129] Z[178]1 [164] 38:[153]" ";:[130]:[153] 575 [153]" WAITm"[166]36)"n WAIT m"[166]10)"uccccccccccciWAIT"[166]11)"n  "; 576 [153]" WAIT m"[166]9)"bGREENGROCERbWAIT"[166]10)"n  "; 577 [153]" WAIT"[166]8)"STOPb jccccccccccckWAIT STOPb"[166]9)" "; 578 [153]" WAIT"[166]8)"STOPb"[166]19)"b"[166]9)" "; 579 [153]" WAIT"[166]7)"STOPc>qSTOPcqSTOPcqSTOPcqSTOPcSYSqSTOPcSYSqSTOPcc=c=ccqSTOP>c"[166]8)" "; 580 [153]" WAIT"[166]9)"q q q q SYSq q ui ui q"[166]10)" "; 581 [153]" WAIT"[166]9)"q q q q SYSq q )) )) q"[166]10)" "; 582 [153]" WAIT"[166]9)"q q q q SYSq q jk jk q"[166]10)" "; 583 [153]" WAIT"[166]9)"q q q q SYSq"[166]9)"q"[166]10)" "; 584 [153]" WAIT"[166]9)"q q q SYSq"[166]9)"q"[166]10)" "; 585 [153]" WAIT"[166]8)"q q q SYSq"[166]8)"q"[166]10)" "; 586 [153]" WAIT"[166]26)"q"[166]11)" "; 587 [129]Z[178]1[164]3:[153]" WAIT "[166]28)" ";:[130] 588 [153]" WAIT"[166]38)" WAIT"[166]13)"SYSANDANDANDANDANDAND"[166]19)" "; 589 [153]" WAIT SYSANDANDANDANDANDANDANDANDSYSSTEPWAITqqqqqSYSSTEPWAITANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND  "; 590 [153]" WAIT SYSSTEPWAITqqqSYSWAIT STEPWAITqqqqqSYSSTEPWAITSTEP STEP WAIT"[166]7)"m  "; 591 [153]" WAIT SYSSTEPWAITqqqqqSYSWAIT  WAITSTEP STEPWAITSTEPqqqqqWAIT"[166]7)"m  "; 592 [153]" WAIT nSYS WAIT"[166]9)"STEPWAITSTEPqqqqqqqWAIT"[166]7)"m  "; 593 [153]" WAITn"[166]17)"SYS WAIT"[166]8)"m "; 594 [153]"WAIT ";:[129] Z[178]1 [164] 38:[153]" ";:[130]:[143] PRINT 595 X[178]75:Y[178]195:[141]124:X[178]170:Y[178]210:[141]77:[142] 596 CO[178]2:CS[178]14:[141]147 597 [153]"CONT ";:[129] Z[178]1 [164] 38:[153]" ";:[130]:[153] 598 [153]" WAIT"[166]38)" WAIT"[166]11)"ucccccccccccccciWAIT"[166]11)" "; 599 [153]" WAIT"[166]11)"bEISEN SCHMIEDTbWAIT"[166]11)" "; 600 [153]" WAIT"[166]11)"jcccccccccccccckWAIT"[166]11)" "; 601 [153]" WAIT"[166]38)" WAIT"[166]9)"(null)LENLENLENLENLENLENLENLENLENLENLENLENRIGHT$"[166]15)" "; 602 [153]" WAIT"[166]9)"PEEK PREISE PEEK"[166]15)" "; 603 [153]" WAIT"[166]9)"PEEK PEEK"[166]15)" "; 604 [153]" WAIT"[166]9)"PEEK PEEK"[166]6)"VERIFY(null)"[166]8)" "; 605 [153]" WAIT"[166]9)"PEEK PEEK"[166]5)"CLR WAIT"[166]7)" "; 606 [153]" WAIT"[166]9)"MID$LENLENLENLENLENLENLENLENLENLENLENLEN(null) CLRSTEP (null)WAIT"[166]6)" "; 607 [153]" WAIT VERIFYSTEP WAIT"[166]16)"CLRSTEP WAIT  "; 608 [153]" WAIT VERIFYSTEP WAIT LISTSTEP WAIT DEFSTEP WAIT CLRSTEP WAIT  "; 609 [153]" WAIT VERIFY q q q LISTSTEP DEF WAIT+CLR WAITSGN  "; 610 [153]" WAIT VERIFY LIST DEF STOPWAITqDEF STOPWAITqDEF WAIT VERIFY WAIT"[166]8)" "; 611 [153]" WAIT VERIFY ccccc LIST ucci DEF WAIT VERIFY WAIT"[166]8)" "; 612 [153]" WAIT VERIFY WAIT  LIST b b DEF WAIT VERIFY WAIT"[166]8)" "; 613 [153]" WAIT VERIFY WAIT  LIST b b DEF WAIT VERIFY WAIT"[166]8)" "; 614 [153]" WAIT VERIFY LIST jcck DEF WAIT VERIFY WAIT"[166]8)" "; 615 [153]" WAIT ANDVERIFY JUNO LIST DEF WAITANDANDANDANDANDVERIFY WAITANDANDANDANDAND  "; 616 [153]" WAIT n VERIFY LIST MIELE STOPWAITLOG COS VERIFYucPOSWAITci m  "; 617 [153]" WAIT n STOPUSR USR LIST WAIT"[166]17)"m  "; 618 [153]" WAITn"[166]11)"STOPq q"[166]19)"m "; 619 [153]"WAIT ";:[129] Z[178]1 [164] 38:[153]" ";:[130] 620 [151]53275,[194](53275)[176]64:X[178]228:Y[178]176:[141]133 621 [129]X[178]250[164]80[169][171]1:Y[178]120[170].2[172]X:[141]122:[130]:[142] 622 CO[178]0:CS[178]5:[141]147 623 [153]"STOP IM KINO "; 624 [129]Z[178]1[164]6:[153]:[130] 625 [153][166]11)"STOP(null)" 626 [153][166]25)"STOPSTEPWAITSTEP" 627 [153][166]6)"STOP(null) AND  WAIT" 628 [153][166]13)"STOP " 629 [153][166]16)" " 630 [153][166]11)"(null)"[166]6)"PEEK )(null) " 631 [153][166]18)"MID$LENLENLEN " 632 [153][166]22)" " 633 [153][166]22)" " 634 [153][166]21)"LOGPOSPOSPOSWAITCOS 635 POKE53275,PEEK(53275)OR254 636 X=40:Y=198:GOSUB115:X=130:Y=200:GOSUB124:X=250:Y=198:GOSUB60:RETURN 637 GOSUB146:REM BAU KOALA 638 PRINT" ";:FOR Z=1 TO 34:PRINT"[175]";:NEXT:PRINT 639 PRINTSPC(2);:FORZ=1TO18:PRINT"[206][205]";:NEXT:PRINT 640 PRINTSPC(2);:FORZ=1TO18:PRINT"[205][206]";:NEXT:PRINT 641 PRINT" [183][183][183][183][183][149][208][208][183][183][183][183][183][183][183][183][183][183][183][183][183][208][183][214][183][207][183][183][183][183][183][183][183][183][183] 642 [153][166]8)"VERIFY++"[166]13)"+(null) (null)SGN 643 PRINTSPC(8)"[149][170][170]"SPC(13)"[170][205] [206][180] 644 [153]"ANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRWAIT"[166]5)"+CLOSE(null) SGN" 645 [153]"SQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRWAIT +(null) (null)SGN" 646 [153]"ANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRWAIT +(null) (null)SGN" 647 [153]"SQRANDSQRANDWAIT VERIFY++"[166]8)"SQRANDSQRWAIT + (null) SGN" 648 [153]"ANDSQRANDSQRWAIT STOP(null)"[166]8)"ANDSQRANDSQRWAIT +(null) (null)SGN" 649 [153]"SQRANDSQRANDWAIT VERIFY(null) (null)"[166]6)"SQRANDSQRANDWAIT +(null) (null)SGN" 650 [153]"ANDSQRANDSQRWAIT VERIFY(null) (null) ANDSQRANDSQRWAIT + (null) SGN" 651 [153]"SQRANDSQRANDWAIT STOPUSRUSRUSRUSRUSRUSRUSR SQRANDSQRANDWAIT +(null) (null)SGN" 652 [153]"ANDSQRANDSQRWAIT ANDSQRANDSQRWAIT +(null) (null)SGN" 653 [153]"SQRANDSQRPOSWAIT SQRANDSQRANDWAIT + (null) SGN"[166]8)"SQR" 654 [153]"ANDSQRANDSQRWAIT"[166]14)"ANDSQRANDSQRWAIT +(null) (null)SGN"[166]8)"ANDSQR" 655 [153]"SQRANDSQRANDWAIT"[166]14)"SQRANDSQRANDWAIT +(null) (null)SGN"[166]8)"SQRANDSQR" 656 [153]"ANDSQRANDSQRWAIT"[166]14)"ANDSQRANDSQRWAIT + (null) SGN"[166]8)"ANDSQRANDSQR"; 657 [129]Z[178]1[164]2:[153]"SQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRAND"; 658 [153]"ANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQR";:[130] 659 [153]"SQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRAND"; 660 X[178]60:Y[178]160:[141]120:X[178]160:Y[178]200:[141]77:X[178]215:[129]XH[178]160[164]80[169][171]10 661 [129]Y[178]XH[164]XH[171]20[169][171]2:[141]117:[130]:[129]Y[178]XH[171]20[164]XH[171]10:[141]117:[130]:[130]:[142] 662 [141]146 663 [153] 664 [153]"";:[129] Z[178]1 [164] 33:[153]"AND";:[130]:[153] 665 [153]"<><><><><><><><><><><><><><><> 666 PRINT"[144] [146][183]pn[183]mo[183][183][183][183][183][183][183][149]T[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183] 667 [153]" +m nSGN"[166]7)"VERIFYb 668 PRINT" [170] v [180]"SPC(7)"[149]S"SPC(14)"[158][169] 669 [153]" +n mSGN"[166]6)"VERIFYn m"[166]12)"SYSSTEP  670 PRINT" [170]m n[180] [149]n m"SPC(10)"[158][169] [169] 671 [153]" + (null) SGN STOPTAB(TAB(TAB(TAB(TAB(TAB(TAB("[166]8)"SYSSTEP (null) 672 PRINT" [170][206] [205][180] "SPC(7)"[158][169] [223]"; 673 PRINT"[175][186][146] [170][205] [206][180] 674 [153]"SQRANDSQRWAIT + v SGN FORSTEP 675 PRINT"[175][186][175][186][146] [170]n m[180] [129][169][169]  676 [153]"SQRANDSQRANDSQRWAIT+m nSGN FORSTEP  677 PRINT"[175][186][175][186][175][186][146] v [180][129][169]  678 [153]"SQRANDSQRANDSQRANDSQRWAIT mFORSTEP  679 PRINT"[175][186][175][186][175][186][175][186][146] [169][146][169][169][146][169] 680 [153]"SQRANDSQRANDSQRANDSQRANDSQRWAIT STEPWAITSTEP 681 PRINT"[175][186][175][186][175][186][175][186][175][186][146][169] 682 [153] 683 [153]" ANDSQRANDSQRANDSQRWAIT  WAITSTEP 684 PRINT" [175][186][175][186][175][186][175][186][146]  [146][169] 685 [153]" ANDSQRANDSQRANDSQRANDSQRANDSQRWAIT STOPucinUSRUSRUSRUSRpUSRUSRVERIFYFREFRE 686 PRINT" [175][186][175][186][175][186][175][186][175][186][175][186][146] [144]bwb [170] 687 [153][166]15)"MID$LEN(null) +ON" 688 X[178]220:Y[178]140:[141]121:X[178]145:Y[178]100:[141]124:[142] 689 [141]146 690 [153][166]7)"";:[129] Z[178]1 [164] 32:[153]"TO";:[130]:[153] 691 [153][166]6)"<><><><><><><><><><><><><><><><><>"; 692 [153][166]7)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(pnmoTAB(TAB(TAB(TAB(TAB(oTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( 693 PRINT" [186][175][186][146]"SPC(10)"[170]mn[180] [180] 694 [153]" ANDSQRANDSQRANDSQRWAIT"[166]7)"+nmSGN SGN 695 PRINT" [186][175][186][175][186][175][186][146]"SPC(6)"[170]mn[180] [180] 696 [153]" ANDSQRANDSQRANDSQRANDSQRWAIT +(null)(null)SGN SGN 697 PRINT" [186][175][186][175][129][169] [223][146][170][205][206][180] [151][223] [146][169] 698 [153]" ANDSQRANDSQRANDFOR ANDSQRPOKEWAIT(null) FOR WAIT +(null)(null)SGNSTOP(null) POKE WAIT 699 PRINT" [186][175][186][175][186][129] [186][175][146] [151]m [129] [151][146]m[170]mn[180][144][182][146] [151][188][190][146] [158][169]  700 [153]" ANDSQRANDSQRANDFOR ANDSQRWAIT POKEmFOR WAIT +nmSGNSTOPABSWAIT SYSSTEPSTEP  701 PRINT"[186][175][186][175][186][175][186][186][129] [176]ccc[174] [146] [170]mn[180][144][182][146] [158][169] "; 702 PRINT"[175][186][175][186][175][186][175][186][129] b cb [151][146]m[144]pom[180][144][182] 703 [153]"SQRANDSQRANDSQRANDWAIT FOR b b 704 PRINT"[175][186][175][186][175][186][146] [129] [171]ccc[179] ucciuci [146]"SPC(7)"[158][169] 705 [153]"SQRANDSQRANDSQRANDWAIT FOR /cccEXP FRE FREFRE FRE WAITWAIT  WAITSTEP SYSSTEP STEP 706 PRINT"[175][186][175][186][175][186][146] [129][169] [146] [146] [158][169]  707 [153]"SQRANDSQRANDSQRANDWAIT FOR STOPWAITuccccccccccccciFOR WAIT  WAIT SYSSTEP  708 PRINT"[175][186][175][186][175][186][175][186][175][186][129]cccccccccccq[144][146]b[129] [151][146]m [129] [158][169]  709 [153]"SQRANDSQRANDSQRANDSQRANDSQRANDSQRSTOPWAITccccccccccck POKEmFOR SYS "; 710 [153]"ANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRWAIT"[166]10)"POKEm SYSSTEP "; 711 [153]"SQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRWAIT"[166]10)"POKEm m 712 PRINT"[175][186][175][186][175][186][175][186][175][186][175][186][175][186][146]"SPC(10)"[151]m m 713 [153][166]25)"m m 714 Y=195:FORXH=47TO225STEP5:X=XH:GOSUB65:X=XH-47:GOSUB131:NEXTXH:X=225 715 GOSUB77:FORX=225TO240:Y=Y+1:GOSUB131:NEXTX:RETURN 716 GOSUB146 717 PRINT" [158][146]"SPC(12)" [146]"SPC(13)"[169][146][169] 718 [153][166]6)"WAIT"[166]11)" WAIT"[166]12)"STEPWAITSTEP 719 PRINTSPC(7)"[146]"SPC(10)" [146]"SPC(11)"[169][146][169] 720 [153][166]8)"WAIT"[166]9)" WAIT"[166]10)"STEPWAITSTEP 721 PRINTSPC(9)"[146]"SPC(8)" [146]"SPC(9)"[169][146][169] 722 [153]:[153] 723 [153][166]8)"FOR*NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWRND" 724 [153][166]8)"GET(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)FORWAITGET" 725 [153]"VERIFYNEWNEWNEWRND FORGET(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)FORWAITGET"[166]6)"VERIFY ABSWAIT *NEWNEWNEW"; 726 [153]"CONT VERIFYWAITGET FORGET(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)FORWAITGET"[166]6)"VERIFY WAIT PEEK ABSWAIT GETCONT "; 727 [153]" VERIFYWAITGET FORGET(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)FORWAITGET VERIFYMID$=(null) WAITLEN(null)LENABSWAIT GETCONT "; 728 [153]" POKE*VERIFYWAITGET FORGET(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)FORWAITGET VERIFY(null) (null)WAIT PEEK ABSWAIT GETCONT (null)(null)"; 729 [153]" POKE*VERIFYWAITGET FORGET(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)FORWAITGET VERIFYPEEK  ABSWAIT GETCONT(null) (null)"; 730 [153]"POKE***VERIFYWAITGET FORLOGNEWNEWNEW NEWNEWNEWNEWNEW NEWNEWNEWWAITCOS VERIFYPEEK  ABSWAIT GET (null)CONT "; 731 [153]"POKE**WAITSTEPVERIFYGET"[166]8)"FOR WAIT  WAIT"[166]8)"VERIFYb  ABSWAIT GETWAIT "; 732 [153]"POKE*WAITSTEPVERIFYSTEPWAITSTEP"[166]6)"* FOR WAIT  WAIT VERIFY WAITGET * VERIFYb  ABSWAIT WAIT "; 733 [153]"POKEWAITSTEPVERIFYSTEPWAITSTEP FORSTEP WAITNEW WAITNEW VERIFY WAITGETFORSTEP WAIT VERIFYWAIT"; 734 [153]"VERIFYSTEPWAITSTEPSTEPWAIT FORSTEP VERIFY FOR WAIT STEP VERIFY FOR WAIT VERIFYWAIT"; 735 [153]"WAITSTEPSTEP WAIT"[166]6)"FORGETVERIFY+ SGN FORGETWAIT"[166]8)"GETVERIFY+ SGN FORGETWAIT"[166]6)" VERIFYWAIT"; 736 [153]"ABS WAIT"[166]6)"FORGETVERIFY+FREFRESGN FORGETWAIT"[166]8)"GETVERIFY+FREFRESGN FORGETWAIT"[166]6)" WAITINT"; 737 [153]"ABS WAIT FORSTEPWAITSTEPVERIFYpUSRUSRo FORWAIT"[166]6)"STEPWAITSTEPVERIFYpUSRUSRo FORWAIT  WAITINT"; 738 [153]"ABS WAITSTEP"[166]7)"VERIFY+ SGN"[166]11)"+ SGN"[166]8)" WAITINT"; 739 [153]"ABSSTEP"[166]36)"(null)INTONON" 740 [142] 741 [141]146:[153] [199](14)[199](158)[199](8) 742 [153][163]10)"VALINMALEINS":[153][163]18)"IST ANGESAGT !" 743 [153][163]2)"LENONCEPT AND DESIGN BY ATNURELIUS VALDER" 744 [153][163]13)"6551 PEEKOCKENAU":[153][163]1)"(LEN) 1988 BY (null)ARKT & (null)ECHNIK (null)ERLAG ATNCHR$" 745 [141]89:[141]140:[141]136:[141]140 746 [153]"LOAD(null)EIN (null)AME IST:" 747 [153][163]25)"*NEWWAIT *WAITSIN *NEW":[153][163]25)"LOGWAIT GET SGN LOG" 748 [153][163]25)"*WAIT GET SGN *":[153][163]25)"LOGWAITNEW LOGSINWAIT LOGWAITNEW" 749 X[178]90:[129]Y[178]120[164]200:[141]60:[130]Y 750 [141]56:[151]2044,36:[129]X[178]90[164]170:[141]65:[130]X:[141]77 751 [153][163]3)"SYS(null)PIELANLEITUNG?":[153][163]3)"MID$A ODER NEIN? (J/N)":S$[178]"" 752 [161]S$:[139]S$[178]""[167]752 753 [139]S$[178]"MID$"[176]S$[178]"J"[167]:[137]811 754 [158]49420:[158]49312 755 [141]89:[141]229:ZE[178]20:SA[178]14:AZ[178]1:EZ[178]12[172]CF:UH%[178]0:UE%[178]1300[172]CT:FR%[178]0:BI%[178]1 756 [141]143:[145]RC[137]755,850 757 [141]256:ZE[178]2:SA[178]29:BI%[178]2:FR%[178]1:[141]143:[145]RC[137]755,850 758 [141]282:ZE[178]5:SA[178]6:BI%[178]3:FR%[178]0:[141]143:[145]RC[137]755,850 759 [141]313:ZE[178]2:SA[178]11:BI%[178]4:FR%[178]1:[141]143:[145]RC[137]755,850 760 [141]339:ZE[178]2:SA[178]18:BI%[178]5:FR%[178]1:[141]143:[145]RC[137]755,850 761 [141]89:[141]716:ZE[178]9:SA[178]11:AZ[178]1:EZ[178]16[172]CF:UH%[178]0:UE%[178]1200[172]CT:FR%[178]1:BI%[178]1:FE%[178]0 762 [141]143:[145]RC[137]761,850 763 AZ[178]1:EX[178][165]ZU(3):[139]EX[177]2[167]:[141]802 764 [141]144:[145]RC[137]761,850 765 [139]EX[177]2[167]773 766 [141]464:ZE[178]6:SA[178]8:BI%[178]2:FR%[178]1:[141]143 767 [151]53275,[194](53275)[175]159 768 [141]144:[145]RC[137]761,850 769 [141]493:ZE[178]2:SA[178]14:BI%[178]3:FR%[178]1:[141]143 770 [151]53275,[194](53275)[175]223 771 [141]144:[145]RC[137]761,850 772 [141]521:ZE[178]2:SA[178]17:BI%[178]4:FR%[178]1:[141]143:[145]RC[137]761,850 773 [141]437:ZE[178]10:SA[178]15:BI%[178]5:FR%[178]1:[141]143:[145]RC[137]761,850 774 [158]49152:[158]49227:[141]89:[141]546:ZE[178]3:SA[178]10:AZ[178]0:EZ[178]18[172]CF:UH%[178]0:UE%[178]1500[172]CT 775 S$[178]"":[161]S$:[139]S$[178]""[167]775:[143] PAUSE PARKPLATZ 776 [158]49420:[158]49312 777 FR%[178]1:BI%[178]1:[141]143:[145]RC[137]774,850 778 [141]637:ZE[178]8:SA[178]29:BI%[178]2:FR%[178]6:[141]143:[145]RC[137]774,850 779 AZ[178]1:EX[178][165]ZU(4):[139]EX[177]2[167]:[141]808 780 [141]144:[145]RC[137]774,850 781 [139]EX[177]2[167]784 782 [141]662:ZE[178]17:SA[178]29:BI%[178]3:FR%[178]2:[141]143:[145]RC[137]774,850 783 [141]689:ZE[178]6:SA[178]29:BI%[178]4:FR%[178]0:[141]143:[145]RC[137]774,850 784 [141]622:ZE[178]3:SA[178]5:BI%[178]5:FR%[178]1:[141]143 785 [151]53275,[194](53275)[175]1 786 [141]144:[145]RC[137]774,850 787 [141]89:[141]716:[153][199](19);"":[153][163]11)"IHR SEID" 788 [153][163]12)"KURZ VOR":[153]"ONON":[153][163]12)"DEM ZIEL!":[129]XH[178]0[164]2000:[130] 789 [141]89:[141]716:ZE[178]9:SA[178]11:AZ[178]2:EZ[178]19[172]CF:UH%[178]0:UE%[178]500[172]CT:FR%[178]1:BI%[178]2:FE%[178]0 790 X[178]55:Y[178]200:[141]118:Y[178]150:X[178]247:[141]119 791 [141]143:[145]RC[137]787,787 792 [141]89:[141]716:[153][199](19);"":[153][163]11)"NUR NOCH" 793 [153][163]12)"DREI":[153]"ONON":[153][163]12)"AUFGABEN!":[129]XH[178]0[164]2000:[130] 794 [141]89:[141]716:ZE[178]9:SA[178]11:AZ[178]5:EZ[178]19[172]CF:FR%[178]1:BI%[178]4 795 X[178]55:Y[178]200:[141]118:Y[178]150:X[178]247:[141]119:X[178]85:Y[178]150:[141]120:[141]29:[141]39 796 [139]UH%[177][178]UE%[176]FE%[177]0[167]:X[178]50:Y[178]180:[141]120:[129]XH[178]0[164]300:[130]:[151]53269,[194](53269)[175]223 797 [129]XH[178]0[164]900:[130]:[141]89:[141]134 798 [141]144:[145]RC[137]761,850 799 [141]89:[141]716:[153][199](19);"":[153][163]10)"AUFLOESUNG:" 800 [153][163]11)"STOPUEBUNG":[153][163]10)"MACHT DEN":[153][163]13)"MEISTER!" 801 [129]XH[178]0[164]2500:[130]:[137]850 802 [141]365:ZE[178]5:SA[178]26:BI%[178]2:FR%[178]0:[141]143 803 [151]53275,[194](53275)[175]63 804 [141]144:[145]RC[137]807,807 805 [141]390:ZE[178]4:SA[178]15:BI%[178]3:FR%[178]0:[141]143:[145]RC[137]807,807 806 [141]412:ZE[178]3:SA[178]1:BI%[178]4:FR%[178]6:[141]143 807 [142] 808 [141]573:ZE[178]15:SA[178]28:BI%[178]3:FR%[178]7:[141]143:[145]RC[137]810,810 809 [141]596:ZE[178]8:SA[178]12:BI%[178]4:FR%[178]6:[141]143 810 [151]53275,[194](53275)[175]191:[142] 811 [141]89:CO[178]11:CS[178]11:[141]147:[153] [199](14 ); 812 [153]:[153]:[153] 813 [153]" ede SYSIST AUF DER sUCHE NACH DEM gE- 814 PRINT" HEIMNIS DES eINMALEINS. uM IHM ZU HEL- 815 [153]" FEN, MUSST dU DIE aUFGABEN IM bILD DER 816 PRINT" rEIHE NACH RICHTIG LOESEN. wENN dU DAS 817 [153]" IN DER VORGEGEBENEN zEIT SCHAFFST, 818 PRINT" KOMMST dU EIN bILD WEITER, SO GEHT ES 819 [153]" VOM lAND IN DIE sTADT, WO DIE lOESUNG 820 PRINT" DES eINMALEINS ZU FINDEN IST. 821 [153]" eINGEGEBENE zAHLEN LASSEN SICH NICHT 822 PRINT" MEHR KORRIGIEREN. bEI EINEM fEHLER 823 [153]" SPRINGT DER fEHLERTEUFEL, WENN dU ZU 824 PRINT" LANGSAM BIST, ERSCHEINT DIE sCHNECKE 825 [153]" UND ede SYSWIRD ZURUECKGESCHICKT. lIEGST 826 PRINT" dU GUT IM rENNEN, WIRD EIN uHU SICHT- 827 [153]" BAR. 828 PRINT:PRINT 829 PRINTSPC(6)"vIEL sPASS UND gLUECK! 830 [153]:[153] 831 [153][166]6)"(null)EITER MIT (null)(null)ATNLENVAL." 832 [161]S$:[139]S$[179][177]" "[167]832 833 [153][199](147) 834 [153]:[153]:[153]:[153]:[153][166]2)[199](14)"SYS(null)AEHLE JETZT STR$EIN (null)EVEL." 835 [153]:[153][166]8)"(null)ASTE P FUER (null)ROFI" 836 [153][166]8)"(null)ASTE S FUER SCHWER":[153][166]8)"(null)ASTE M FUER MITTEL" 837 [153][166]8)"(null)ASTE L FUER LEICHT" 838 [153][166]8)"(null)ASTE E FUER VALINSTEIGER" 839 [161]S$:[139]S$[178]"P"[176]S$[178]"(null)"[167]:CT[178].9:CF[178]1:[137]845 840 [139]S$[178]"S"[176]S$[178]"(null)"[167]:CT[178]1.2:CF[178].8:[137]845 841 [139]S$[178]"M"[176]S$[178]"(null)"[167]:CT[178]1.2:CF[178].5:[137]845 842 [139]S$[178]"L"[176]S$[178]"(null)"[167]:CT[178]1.6:CF[178].5:[137]845 843 [139]S$[178]"E"[176]S$[178]"VAL"[167]:CT[178]5:CF[178].5:[137]845 844 [137]839 845 [153]:[153]:[153]:[153]:[153][166]2)"(null)AEHLE JETZT STR$EINE (null)EIHE, VON 2 BIS" 846 [153][166]2)"19 ODER 0 FUER UNGEORTNET.":CR[178]0 847 [141]148 848 [139]S$[178]"1"[167]:CF[178].5:CR[178]10:[141]148 849 CR[178]CR[170][197](S$):[137]754 850 CO[178]11:CS[178]11:[141]147 851 [139]CL[177][178]3[167]:[153]:[153]" VALSTR$VAL SYSEMPFIEHLT:":[153]" (null)AEHLE EIN NIEDRIGERES (null)EVEL." 852 [139]CM[177][178]3[167]:[153]:[153]" VALSTR$VAL SYSEMPFIEHLT:":[153]" (null)EBE NOCH DIE"CX"'ER (null)EIHE." 853 CL[178]0:CX[178]0:CM[178]0:[129]N[178]0[164]9:CE(N)[178]0:[130]:[137]834 854 [128]